home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 10 / PC Guia 10.iso / database / power.dir / 00007_Script_7 < prev    next >
Text File  |  1996-03-14  |  933b  |  44 lines
  1. on GetFileNames
  2.   
  3. end 
  4.  
  5. on deletecast
  6.   set TheList = [32,127,78,45,63,184,115,152,148,132,99,14,140,102,149]
  7.   set times  = count (TheList)
  8.   
  9.   repeat with j = 327 to 934
  10.     
  11.     set xx = the name of cast j
  12.     
  13.     if the castType of cast j <> "#palette" and xx <> 0 then
  14.       set result = false
  15.       repeat with i = 1 to times
  16.         
  17.         set zz = getAt(TheList,i)
  18.         
  19.         set the itemDelimiter to "-"
  20.         if item 1 of xx = zz then 
  21.           put TRUE into result
  22.           exit repeat
  23.         end if
  24.         
  25.         set the itemDelimiter to "."
  26.         
  27.         if item 1 of xx = zz then 
  28.           put TRUE into result 
  29.           exit repeat
  30.         end if
  31.         
  32.         set the itemDelimiter to ","
  33.         
  34.       end repeat
  35.       
  36.       if result = FALSE then
  37.         put "erase cast" & j
  38.         erase cast j
  39.       end if
  40.     end if
  41.   end repeat
  42.   
  43.   
  44. end